home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M98.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  12KB  |  425 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Goto LABEL001
  38.     End
  39.     If (0 == 0) STRING002 = "NO"
  40.     If (0 == 1) STRING002 = "YES"
  41.  
  42.     EndFunc
  43.  
  44.     :LABEL001
  45.     INTEGER003 = Date()
  46.     STRING008 = Random(99999999)
  47.     STRING008 = STRING008 + "00000000"
  48.     STRING008 = Left(STRING008, 8)
  49.     STRING004 = "@X09Φ@X89@X0F"
  50.     STRING005 = "@X0AΩ@X8A@X0F"
  51.     STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  52.     Cls
  53.     PrintLn 
  54.     PrintLn "@X0A        Below us is the planet Xanadu.  The magnetosphere of the    @X07"
  55.     PrintLn "@X0A planet prevents us from using standard communications procedures.   @X07"
  56.     PrintLn "@X0A Once you're down, you're on your own - a S&R beacon has been fitted @X07"
  57.     PrintLn "@X0A into your weapons pod.  Key it ONLY on completion of your mission,  @X07"
  58.     PrintLn "@X0A and we'll get a retrieval boat down to you.                         @X07"
  59.     PrintLn 
  60.     PrintLn "@X0A        We've dropped several divisions on this supposedly uninhabited   @X07"
  61.     PrintLn "@X0A planet, and have only managed to retrieve a few badly incoherent soldiers@X07"
  62.     PrintLn "@X0A from the surface.  They were all victims of a low-grade viral infection  @X07"
  63.     PrintLn "@X0A that causes progressive brain damage.  You'll be inoculated against the  @X07"
  64.     PrintLn "@X0A virus before you drop, but Medical isn't sure how long the inoculation   @X07"
  65.     PrintLn "@X0A will last against repeated exposure to the virus.                        @X07"
  66.     PrintLn 
  67.     Call PPEPath() + "VRS-M19.PPE"
  68.     Cls
  69.     PrintLn 
  70.     PrintLn "@X0E        Xanadu:                                                   @X07"
  71.     PrintLn 
  72.     PrintLn "@X0E        Rotational Period:             @X07 @X0C         25.61 E-Hours    @X07"
  73.     PrintLn "@X0E        Average daytime temperature:   @X07 @X0C        -70°C             @X07"
  74.     PrintLn "@X0E        Average nighttime temperature: @X07 @X0C        -160°C            @X07"
  75.     PrintLn "@X0E        Average wind velocity:         @X07 @X0C         145KPH           @X07"
  76.     PrintLn 
  77.     PrintLn "@X0A        That's all we've got.  The screwy magnetosphere of the planet@X07"
  78.     PrintLn "@X0A prevents us from getting any more detail of the planet.  Your report @X07"
  79.     PrintLn "@X0A on your return will aid us in this as well.                          @X07"
  80.     PrintLn 
  81.     Call PPEPath() + "VRS-M19.PPE"
  82.     Cls
  83.     PrintLn 
  84.     PrintLn "@X0A        You'll be dropping with a full kit weapons and armor pod, as we@X07"
  85.     PrintLn "@X0A have literally no idea what you'll be facing.                          @X07"
  86.     PrintLn 
  87.     PrintLn "@X0B        Find our lost troops!  If they're dead, we'll want to know why.@X07"
  88.     PrintLn "@X0B If they are alive, we want them back!                                  @X07"
  89.     PrintLn 
  90.     PrintLn 
  91.     PrintLn 
  92.     PrintLn "@X0D        Preparing yourself for this challenge, you give your powered    @X07"
  93.     PrintLn "@X0D armor a final check and bolt it into your weapons pod along with all    @X07"
  94.     PrintLn "@X0D the other tools of mass mayhem provided to you by the Imperium.         @X07"
  95.     PrintLn 
  96.     PrintLn "@X0D        Changing into a Pod Survival Suit, you strap yourself into your @X07"
  97.     PrintLn "@X0D personnel pod.  You feel a @X0CTHUMP!@X0D as the pods are fired from the ship,  @X07"
  98.     PrintLn "@X0D and watch your descent to the planet in your pod tracking screen...     @X07"
  99.     Newlines 3
  100.     Call PPEPath() + "VRS-M19.PPE"
  101.     If (AnsiOn()) Then
  102.         Cls
  103.         StartDisp 1
  104.         PrintLn "       @X07 ╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗@X0F"
  105.         PrintLn "       @X07 ╟─@X0EDrop Capsule Tracking @X07┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  106.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  107.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  108.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  109.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤@X0DPOD SEPARATION @X8E@X07├─┼─┼─┼─┼─┼─┼─╢@X0F"
  110.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┬─┬─┬─┬─┬─┬─┬─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  111.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  112.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  113.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  114.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  115.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  116.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  117.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  118.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  119.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  120.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  121.         PrintLn "       @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  122.         PrintLn "       @X07 ╟─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┴─┴─┼─╢@X0F"
  123.         PrintLn "       @X07 ╚═╧═╛@X09Φ@X89@X99@X0F = @X09Weapons Pod@X07╘═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╛ @X0AΩ@X8A@X0F = @X0APersonnel Pod @X07╘═╝@X0F"
  124.         AnsiPos 21, 4
  125.         Print STRING004
  126.         AnsiPos 23, 3
  127.         Print STRING005
  128.         Delay 10
  129.         AnsiPos 20, 5
  130.         Print STRING004
  131.         AnsiPos 24, 4
  132.         Print STRING005
  133.         Delay 10
  134.         AnsiPos 47, 4
  135.         PrintLn "@X0CWARNING!@X8C@X0F"
  136.         AnsiPos 19, 6
  137.         Print STRING004
  138.         AnsiPos 25, 5
  139.         Print STRING005
  140.         Delay 10
  141.         AnsiPos 18, 7
  142.         Print STRING004
  143.         AnsiPos 26, 6
  144.         Print STRING005
  145.         Delay 10
  146.         AnsiPos 19, 8
  147.         Print STRING004
  148.         Delay 10
  149.         AnsiPos 20, 9
  150.         Print STRING004
  151.         AnsiPos 29, 7
  152.         Print STRING005
  153.         Delay 10
  154.         AnsiPos 21, 10
  155.         Print STRING004
  156.         AnsiPos 30, 8
  157.         Print STRING005
  158.         Delay 10
  159.         AnsiPos 22, 11
  160.         Print STRING004
  161.         AnsiPos 31, 9
  162.         Print STRING005
  163.         Delay 10
  164.         AnsiPos 23, 12
  165.         Print STRING004
  166.         AnsiPos 33, 10
  167.         Print STRING005
  168.         Delay 10
  169.         AnsiPos 24, 13
  170.         Print STRING004
  171.         AnsiPos 35, 11
  172.         Print STRING005
  173.         Delay 10
  174.         AnsiPos 25, 14
  175.         Print STRING004
  176.         AnsiPos 37, 12
  177.         Print STRING005
  178.         Delay 10
  179.         AnsiPos 26, 15
  180.         Print STRING004
  181.         AnsiPos 38, 13
  182.         Print STRING005
  183.         Delay 10
  184.         AnsiPos 47, 8
  185.         PrintLn "@X0CWARNING!@X8C@X0F"
  186.         AnsiPos 26, 16
  187.         Print STRING004
  188.         AnsiPos 41, 14
  189.         Print STRING005
  190.         Delay 10
  191.         AnsiPos 24, 17
  192.         Print STRING004
  193.         AnsiPos 43, 15
  194.         Print STRING005
  195.         Delay 10
  196.         AnsiPos 45, 16
  197.         Print STRING005
  198.         Delay 10
  199.         AnsiPos 46, 17
  200.         Print STRING005
  201.         Delay 10
  202.         AnsiPos 48, 18
  203.         Print STRING005
  204.         Delay 10
  205.         AnsiPos 0, 18
  206.         PrintLn "        @X07╟─┼─┼─┼─┼─┼─┼─@X8C█@X0F─@X0CDESTROYED!@X8C@X07┼─┼─┼─┼─┼─┼─┼─@X8E█@X0F─@X0EDAMAGED!@X8E@X07┼─┼─┼─┼─┼─┼─┼─╢@X0F"
  207.         PrintLn "        @X07╟─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┴─┴─┼─╢@X0F"
  208.         PrintLn "        @X07╚═╧═╛@X09Φ@X89@X99@X0F = @X09Weapons Pod@X07╘═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╛ @X0AΩ@X8A@X0F = @X0APersonnel Pod @X07╘═╝@X0F"
  209.         Delay (5 * 182) / 10
  210.         Cls
  211.         Newlines 2
  212.     Endif
  213.     DOpen 3, PPEPath() + "VRS.DBF", 0
  214.     DTop 3
  215.     DGet 3, "R_BATS", INTEGER001
  216.     DGet 3, "PL_BATS", INTEGER002
  217.     DCloseAll
  218.     Newlines 3
  219.     PrintLn "@X0EAs usual for single drops, you landed on Xanadu and your support pod landed in@X0F"
  220.     PrintLn "@X0Ean ocean.  Luckily for you, there is an outpost sign within sight.@X0F"
  221.     PrintLn "@X0EUnluckily for you, you only have a hundred credits in your pockets, and Xanadu@X0F"
  222.     PrintLn "@X0Eisn't a very friendly planet.@X0F"
  223.     PrintLn 
  224.     PrintLn "@X0ESeeing that you have a choice between freezing to death on this average balmy@X0F "
  225.     PrintLn "@X0Eday on Xanadu (following standard planet name convention, -70°C is considered @X0F"
  226.     PrintLn "@X0Ebalmy) or heading into the outpost, you decide to take your chances with the @X0F "
  227.     PrintLn "@X0Elocals.  At the door, you find an extremely ugly specimen of a guard...@X0F"
  228.     DOpen 0, PPEPath() + "USER.DBF", 0
  229.     Delete PPEPath() + "NHAND.NDX"
  230.     DnCreate 0, PPEPath() + "NHAND.NDX", "HANDLE"
  231.     :LABEL002
  232.     KeyFlush
  233.     Backup 80
  234.     ClrEol
  235.     Newlines 2
  236.     InputStr "@X0AWhat's your handle Soldier@X0F _", STRING006, 11, 25, Mask_Ascii(), 0 + 8
  237.     If (STRING006 == "QUIT") End
  238.     If (STRING006 == "") Then
  239.         Backup 80
  240.         ClrEol
  241.         Goto LABEL002
  242.     Endif
  243.     STRING006 = Trim(STRING006, " ")
  244.     DSeek 0, STRING006
  245.     If (DChkStat(0) == 0) Then
  246.         Backup 80
  247.         ClrEol
  248.         Print "@X0CWe've already got a@X0E ", Mixed(STRING006), "@X0C here.  Call yourself something else@X0F"
  249.         Delay (2 * 182) / 10
  250.         Goto LABEL002
  251.     Endif
  252.     Backup 80
  253.     ClrEol
  254.     Print "@X0B", Mixed(STRING006), "@X0A, sounds funny to me, but do you like it? @X02(@X0EY@X02/@X0EN@X02) "
  255.     InputStr "_", STRING011, 11, 1, "YN", 0 + 8
  256.     If (STRING011 == "N") Then
  257.         Backup 80
  258.         ClrEol
  259.         Goto LABEL002
  260.     Endif
  261.     Newlines 2
  262.     InputStr "@X0AAre you a @X0E(@X0CM@X0E)@X0Aale or @X0E(@X0CF@X0E)@X0Aemale _", STRING007, 14, 1, "MFmf", 0 + 8 + 64
  263.     Newlines 1
  264.     If (STRING007 == "M") PrintLn "@X09IF A WOMAN EVER BEATS YOU IN BATTLE, YOU DESERVED IT.@X0F"
  265.     If (STRING007 == "F") PrintLn "@X09IF A MAN EVER BEATS YOU IN BATTLE, YOU DESERVED IT.@X0F"
  266.     Newlines 1
  267.     PrintLn "@X0EThe door guard suddenly grabs you by the arm, you are about to put up a fight@X0F"
  268.     PrintLn "@X0Ewhen he pushes your arm under the ID scanner.  A rusty, machine voice grinds@X0F"
  269.     PrintLn "@X0Eto life and burps up some data about you...@X0F"
  270.     Newline
  271.     PrintLn "@X0AO.K.@X0E ", Mixed(STRING006), " @X0Ayour records are being downloaded from your ID chip..."
  272.     Newline
  273.     GetUser
  274.     If (Len(U_BDPhone) > 6) Then
  275.         STRING010 = Strip(U_BDPhone, " ")
  276.         STRING010 = Strip(STRING010, "(")
  277.         STRING010 = Replace(STRING010, ")", ".")
  278.         STRING010 = Replace(STRING010, "-", ".")
  279.         Goto LABEL003
  280.     ElseIf (Len(U_HVPhone) > 6) Then
  281.         STRING010 = Strip(U_HVPhone, " ")
  282.         STRING010 = Strip(STRING010, "(")
  283.         STRING010 = Replace(STRING010, ")", ".")
  284.         STRING010 = Replace(STRING010, "-", ".")
  285.         Goto LABEL003
  286.     Else
  287.         STRING010 = String(Random(9999)) + "." + String(Random(9999)) + "." + String(Random(99999))
  288.     Endif
  289.     :LABEL003
  290.     PrintLn "@X0EYou notice in the data stream flowing past your eyes your Marine I.D. Code,@X0F"
  291.     PrintLn "@X0Ethe number @X0A" + STRING010 + "@X0E would catch your eye anywhere, you wonder what@X0F"
  292.     PrintLn "@X0Eelse they know about you...@X0F"
  293.     Delay (2 * 182) / 10
  294.     STRING012 = "@CITY@@DATAPHONE@@FIRST@@HOMEPHONE@@SECURITY@" + U_Ver + U_City + U_Addr(0) + U_Addr(1) + U_Addr(2) + U_Addr(3) + U_Addr(4) + U_Addr(5)
  295.     PrintLn STRING012
  296.     DCloseAll
  297.     Delay (2 * 182) / 10
  298.     Delete PPEPath() + "NHAND.NDX"
  299.     DOpen 0, PPEPath() + "USER.DBF", 0
  300.     DPack 0
  301.     DAppend 0
  302.     DCloseAll
  303.     DOpen 0, PPEPath() + "USER.DBF", 0
  304.     DOpen 1, PPEPath() + "USER.DBF", 0
  305.     DTop 0
  306.     DBottom 1
  307.     For INTEGER004 = 1 To DFields(0)
  308.         STRING009 = DName(0, INTEGER004)
  309.         DFCopy 1, STRING009, 0, STRING009
  310.         If (INTEGER004 == 10) Print "@X0CConnecting to CommLink...@X0F"
  311.         If (INTEGER004 == 20) Print "  @X0ENegotiating Handshake...@X0F"
  312.         If (INTEGER004 == 30) Print "  @X0BΓ▌#!$%ß Argh! Line noise!@X0F"
  313.     Next
  314.     DPut 1, "HANDLE", STRING006
  315.     DPut 1, "SEX", STRING007
  316.     DPut 1, "NAME", U_Name()
  317.     DPut 1, "L_DATE", String(INTEGER003)
  318.     DPut 1, "FILE_NUM", STRING008
  319.     FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
  320.     FPutLn 1, "@X0A" + Mixed(STRING006) + " JOINED THE FRAY!@X0F"
  321.     FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  322.     FClose 1
  323.     FAppend 1, PPEPath() + STRING008 + ".MSG", 2, 0
  324.     FPutLn 1, "@X0A" + String(Date()) + "  " + "From @X0E:@X0CVRS Central"
  325.     FPutLn 1, "@X0EWelcome aboard " + Mixed(STRING006) + "! Beware of Felix!@X0F"
  326.     FPutLn 1, STRING003
  327.     FClose 1
  328.     DCloseAll
  329.     Delete PPEPath() + "NHAND.NDX"
  330.     End
  331.  
  332. ;------------------------------------------------------------------------------
  333. ;
  334. ; Usage report (before postprocessing)
  335. ;
  336. ; ■ Statements used :
  337. ;
  338. ;    3       End
  339. ;    5       Cls
  340. ;    5       ClrEol
  341. ;    16      Goto 
  342. ;    23      Let 
  343. ;    35      Print 
  344. ;    86      PrintLn 
  345. ;    15      If 
  346. ;    2       FAppend 
  347. ;    2       FClose 
  348. ;    5       FPutLn 
  349. ;    1       StartDisp 
  350. ;    1       GetUser
  351. ;    3       Delete 
  352. ;    3       InputStr 
  353. ;    21      Delay 
  354. ;    2       Newline
  355. ;    7       Newlines 
  356. ;    3       Call 
  357. ;    33      AnsiPos 
  358. ;    5       Backup 
  359. ;    1       KeyFlush
  360. ;    1       EndFunc
  361. ;    5       DOpen 
  362. ;    1       DPack 
  363. ;    4       DCloseAll
  364. ;    1       DnCreate 
  365. ;    1       DAppend 
  366. ;    2       DTop 
  367. ;    1       DBottom 
  368. ;    1       DSeek 
  369. ;    2       DGet 
  370. ;    5       DPut 
  371. ;    1       DFCopy 
  372. ;
  373. ;
  374. ; ■ Functions used :
  375. ;
  376. ;    4       *
  377. ;    4       /
  378. ;    42      +
  379. ;    11      ==
  380. ;    1       <
  381. ;    1       <=
  382. ;    2       >
  383. ;    2       >=
  384. ;    7       !
  385. ;    2       &&
  386. ;    1       ||
  387. ;    2       Len(
  388. ;    1       Left()
  389. ;    1       Trim()
  390. ;    4       Random()
  391. ;    2       Date()
  392. ;    1       U_Name()
  393. ;    4       Replace()
  394. ;    4       Strip()
  395. ;    5       String()
  396. ;    1       Mask_Ascii()
  397. ;    14      PPEPath()
  398. ;    1       AnsiOn()
  399. ;    5       Mixed()
  400. ;    2       DFields()
  401. ;    1       DName()
  402. ;    1       DChkStat()
  403. ;
  404. ;------------------------------------------------------------------------------
  405. ;
  406. ; Analysis flags : C
  407. ;
  408. ; C - Call child PPE ■ 3
  409. ;     This is usually normal, but may be a tricky way to launch some
  410. ;     sysop-only commands.
  411. ;     ■ Search for : CALL
  412. ;
  413. ;------------------------------------------------------------------------------
  414. ;
  415. ; Postprocessing report
  416. ;
  417. ;    1       For/Next
  418. ;    0       While/EndWhile
  419. ;    6       If/Then or If/Then/Else
  420. ;    0       Select Case
  421. ;
  422. ;------------------------------------------------------------------------------
  423. ;                 AEGiS Corp - Break the routines, code against the machines!
  424. ;------------------------------------------------------------------------------
  425.